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Introduction 


The  construction  of  NDDL  requires  the  results  of  the 
precompilation  of  438  NDML  routines  into  a  single  logical 
unit  of  work.  These  NDML  routines  have  been  grouped  into 
12  units,  each  of  which  must  be  precompiled.  After 
completion  of  precompilation  for  all  the  modules,  the  following 
steps  must  be  executed  in  order  to  construct  the  NDDL  executable: 

-  Generate  the  NDDL  Request  Processor  Main  Program 

-  Compile  and  insert  into  the  object  library  (GENLIB)  the 
generated  NDDL  Request  Processor  Main  Program 

-  Create  the  NDDL  Executables 

Section  II  of  this  document  lists  the  12  groups  and  each  NDML 
routine  contained  in  the  group.  Section  III  contains  an 
explanation  of  the  process  used  to  precompile  the  12  groups. 
Section  IV  contains  an  example  of  generating,  compiling  and 
insertion  into  the  object  library  of  the  NDDL  Request  Processor 
Main  Program. 
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SECTION  2 

Define  NDML  Groups 


This  section  defines  the  12  groups  to  be  precompiled  that  are 
required  for  NDDL,  the  application  name  associated  with  each  group 
and  the  NDML  routines  contained  in  each  group.  Each  group  has 
been  returned  to  CM  as  an  NDDLn.TST  file  (eg:  NDDL12.TST),  where 
n  is  the  group  number. 

Group  1 

Application  Name  -  NDDLl 

ADDKWA 

ADDKWE 

ADDKWR 

ADDMIG 

ALLDB 

ALLDBMS 

ALLDOM 

ALLDT 

ALLECRT 

ALLMENT 

ALLMREC 

ALLREC 

ALLRNG 

ALLSET 

ALLVALU 

ALLVIEW 

ALTIERT 

ALTAI SM 

ALTDBT 

BLKCLl 

BLKCLST 

CHKATT 

CHKAUCV 

CHKHPRT 

CHKREL 

CHKSTMP 

CMBACAL 

CMBALI 

CMBEKW 

CMBOA 

CMBRKW 

COPAALI 

COPAKW 

COPEKW 

COPOA 

COPRKW 

COPVALI 

COPYAC 

CPYISMD 

DELIAIM 

DELIASM 

DELIERT 

DELIPDF 
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DELIPRF 

OEIAAA 

DEIACON 
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Group  2 

Application  Name  -  NDDL2 
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DELAISM 

DELAPRM 

DELAREA 

DELASM 

DELCONI 

DELDBDF 

DELDBH 

DELDBMS 

DELDBRT 

DELDBST 

DELDIV 

DELDOM 

DELDSCT 

DELDT 

DELDTD 

DELDTNO 

DELECON 

DELECRF 

DELHPN 

DELHPNA 

DELHST 

DELMDKC 

DELMDRC 

DELOAC 

DELPARM 

DELPDF 

DELPDI 

DELPSB 

DELQCRF 
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Group  3 

Application  Name  -  NDDL3 
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DELSMOD 

DELUNIN 

DELVIEW 

DEPFROM 

DEPKCM 

DLMDAUC 

DOMUSAG 

DRPAC 

DRPALTG 

DRPDFMP 

DRPDIV 

DRPECRT 

DRPMGKM 

DRPMGRC 

DRPRULE 

DRPSTMP 

DRPVAL 

DRPVALA 

ECRTALL 

ECRTCHK 

FCOPATT 

FI LEINS 

FINDDOM 

FNDIMEM 

FNDACM 

FNDASA 

FNDASM 

FNDRCM 

GENIDSC 

GENAKW 

GENALG 

GENCMPX 

GENCREC 

GENCRPT 

GENCRUN 

GENDEP 

GENDESC 

GENECRT 

GENEHP 

GENOA 

GENPSB 

GENRKW 

GENTODF 

GENTOST 

GETACAL 
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Group  4 

Application  Name  -  NDDL4 
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DELQCTG 

GTDIPR 

GTDTTYP 

GTVIEWS 

INDFROM 

INSIPSB 

INSAISM 

INSAPRM 

INSAREA 

INSAUCS 

INSCOPA 

INSDAA 

INSDB 

INSDI 

INSDIPA 

INS DOM 

INSDSCT 

INSDT 

INSECRF 

INSECRT 

INSHST 

INSPARM 

INS PART 
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Group  5 

Application  Name  -  NDDL5 

INSPCB 

INSQCTG 

INSRNG 

INSRTPA 

INSRTYP 

INSRULE 

INSSCH 

INSSMOD 

INSTGPA 

INSUNIN 

INSVAL 

INSVIEW 

MODATT 

MODDBAL 

MODENT 

MODKC 

MODLOC 

MODOATT 

MODPCB 

MODPWRD 

MODSCH 

NCOMMIT 

NROLBAK 

OLDTAGM 

RETACKW 

RETATTR 

RETDT 

RETECKW 

RETRACl 

RETRAC2 

RETRACP 

RETRCKW 

RETRECl 

RETREC2 

RETRECP 

RETRNGA 
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Group  6 

Application  Name  -  NDDL6 

SELIDSC 

SELACNM 

SELAIMP 

SELAIMT 

SELAISM 

SELAPRM 

SELDB 

SELDBAA 

SELDBNM 

SELDESC 

SELDFPM 

SELDI 

SELDSTP 

SELECNM 

SELECXR 

SELHOST 

SELRMAP 

SELHP 

SELHSTS 

SELIKEY 

SELKCM 

SELKCMA 

SELMODS 

SELMREC 

SELMTAG 

SELPARM 

SELPEC 

SELRCNM 

SELRELC 

SELRSET 

SELRTPM 

SELSTM 

SELTGEC 

SELUNIN 

SELURT 

STRINS 

UPDIPSB 

UPDAUCS 

UPDIND 

UPDRULE 

UPDSMOD 

UPDTDT 

VALVWRC 

VERACDT 

VERACNM 

VERAIM 

VERAIMD 

VERAIMR 

VERAISM 

Group  7 

Application  Name  -  NDDL7 
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VERALG 

VERALGI 

VERALI 

VERALMP 

VERAPDF 

VERAPRM 

VERAREA 

VERARL 

VERATT 

VERATTP 

VERAUC 

VERCRC 

VERDB 

VERDBA 

VERDBAA 

VERDBAL 

VERDBAS 

VERDBH 

VERDBMS 

VERDBRL 

VERDBRT 

VERDBST 

VERDF 

VERDFID 

VERDFDT 

VERDFLD 

VERDFPA 

VERDFUS 

VERDI 

VERDIDN 

VERDI DT 

VERDI ID 

VERDI PA 

VERDOM 

VERDPSB 

VERDSCT 

VERDSL3 

VERDSTP 

VERDT 

VERDTD 

VERDTFL 

VERDTN 

VERDTYP 

VERDUNI 

VERECN 
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Group  8 

Application  Name  -  NDDL8 
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VERECR 

VERECRT 

VERENT 

VERENTP 

VERERMD 

VERHORZ 

VERHPDF 

VERHPN 

VERHPST 

VERHST 

VERHZP 

VERITAG 

VERKC 

VERKCM 

VERKCMG 

VERKW 

VERKWE 

VERKWR 

VERLUW 

VERLWMD 

VERMAPD 

VERMOD 

VERMPDF 

VERMPDT 

VERMUNI 

VERNMA 

VERNME 

VEROAC 

VERPARM 

VERPART 

VERPASS 

VERPCB 

VERPSB 

VERRCB 

VERRCBS 

VERRCC 

VERRCMP 

VERRCST 

VERREC 

VERRNG 

VERRPS 

VERRSET 

VERRSUS 
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Group  9 

Application  Name  -  NDDL9 
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DELLUW 

VERRT 

VERRTID 

VERRTNO 

VERRULE 

VERSCH 

VERSDT 

VERSMOD 

VERSUS 

VERSTID 

VERTAG 

VERTAP 

VERTAUC 

VERTPDI 

VERTYP 

VERUDT 

VERUDTN 

VERUNIN 

VERVAL 

VERVIEW 

VERVWQU 

VOMAPS 

WRTACKW 

WRTALI 

WRTANAM 

WRTDITM 

WRTECKW 

WRTENAH 

WRTSLCT 

WRTWHCL 

DRPPRFl 

DRPRCE 

DRPRNG 

DRPRNGA 

FNDAUC 

FNDECM 

FNDOAC 

FNDPDF 

GENEKW 

GENEUN 

GENIND 

GENKEY 
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Group  10 

Application  Name  -  NDDLIO 
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6ETMEMB 

GETRCID 

GTAUCPR 

GTCNTPR 

INSDBH 

INS DBMS 

INSDESC 

INSDFPA 

INSPDF 

INSPDI 

INSPWRD 

INSQCRF 

KEYLOCK 

MGENOA 

MODACEC 

MODAISM 

OUTDESC 

RACKW2 

RECKW2 

RELKW 

RETSTD 

RETVALA 

RRCKW2 
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Group  11 

Application  Name  -  NDDLll 
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ADDMIGC 

ALLMROJ 

ALMROJC 

AOACREC 

AOACTAG 

CATFROM 

CHKCAT 

CHKCDOM 

CHKMKM 

CHKRELC 

CMCOUNT 

CMPCRDA 

COPCKW 

DELROJ 

DELROJE 

DEPKCMl 

DRPCRE 

DRPCREl 

FNDECCM 

FNDECCR 

FNDECMl 

GENCAT 

GENCNMl 

GENCNM2 

GENCNM3 

GENCNME 

GENFROM 

GENGENC 

GETCRID 
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Group  12 

Application  Name  -  NDDL12 
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INSIROJ 

INSKC 

SELCATC 

SELCATM 

SELCRAD 

SELCRDN 

SELDBMS 

SELDBRT 

SELRELL 

VALROJ 

VERAODM 

VERCMSV 

VERCMU 

VERCR 

VERCRDA 

VERCRTC 

VERKCT 

VERKCTl 

VERLR 

VERRCT 

VERROJ 

VERROJR 

GETCARD 

GETDFSL 

GETDOM 

GETDTN 

GETECAL 

GETECS 
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SECTION  3 

Precompiling  Process  for  NDDL 


PRENDDL.COM  is  a  procedure  that  sxibmits  one  batch  job  for 
each  group  of  files  to  be  precompiled.  Each  batch  job  will 
precompile  the  routines  and  compile  the  resulting  generated  code. 
The  procedure  that  is  actually  siibmitted  is  BLDNDDL.COM.  All  12 
batch  jobs  are  submitted  so  that  they  are  synchronized  to  start 
one  job  after  the  previous  one  is  finished.  To  begin  the  process, 
type; 

$  eCDMDIR : [ COM ] PRENDDL . COM  EVE_BATCH 
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Procedures  to  Construct  NDDL 


After  successful  completion  of  the  precompilation  of  all  NDML 
group  defined  in  Section  II,  the  following  steps  must  be  executed 
to  construct  the  NDDL  executable. 

1.  Execute  the  procedure  file  GENRPD.COM  to  generate  the  main 
request  processor  for  NDDL.  Proceed  as  follows: 

$  @GENRPD 

GENERATE  REQUEST  PROCESSOR  DRIVERS 


ENTER  LOG  UNIT  WORK  NAME  NDDL 

ENTER  ORACLE  USERNAME/ PAS SWORD  (CDM/CDM)  CDM/CDM 
»>  GENERATION  FINISHED  «< 

RESULTS  OF  GENERATION  CAN  BE 
FOUND  ON  FILE  NDDL.RPD 

Review  results  of  generation  in  file  NDDL.RPD.  On  examining 
NDDL.RPD,  note  the  module  name  (xxxxx)  and  the  file  name 
(yyyyy.TMP) . 

2.  Compile  and  insert  into  the  ob;iect  library  (GENLIB)  the 
generated  request  processor  main.  Proceed  as  follows: 

$  eMCMPDDL  yyyyy.TMP 

3.  Create  the  executable  file  for  the  batch  version  of  NDDL. 
Proceed  as  follows: 

$  eiiNKNDDL 

4.  Create  the  executable  file  for  the  UIMS  version  of  NDDL. 
Proceed  as  follows: 

$  eULNKDDL 

The  following  pages  contain  listings  for: 

PRENDDL.COM 

BLONDDL.COM 

GENRPD.COM 

MCMPDDL.COM 

LNKNDDL.COM 

ULNKDDL.COM 


$! 

$l 

$1 

$! 

$! 


PRENDDL.COM  -  proc  used  to  precompile  in  batch  mode. 

this  will  submit  each  group  after  the 
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$I 

$! 

$! 

$! 

$! 

$! 

$1 

$I 

$! 

$! 

$! 

$! 

$! 

$i 

$! 

$! 
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previous  group  has  completed.  A  log 
file  will  be  produced  for  each  group 
so  that  you  may  check  the  status  of 
the  job.  this  proc  MUST  be  svibmitted 
in  BATCH  mode  as  well  since  the  SYNCHRONIZE 
command  will  lock  the  terminal  until  the 
previous  job  is  complete. 

Each  group  of  PRECOMPILES  will  produce 
many  output  files  that  are  not  needed 
unless  an  error  is  encountered  during  the 
build.  These  include  NDDLx.IN,  NDDLx.DAT, 
NDDLx.MSG,  NDDLx.ERR,  as  well  as  the  listings 
produced  during  the  compilation  of  the  .TMP 
files.  All  of  these  files  should  be  delete 
as  you  go  to  ensure  there  is  enough  disk 


space. 

$! 

$!  PARAMETERS:  PI  =  The  batch  que  were  the  jobs  will 

execute . 

$!  If  PI  is  not  specified  processing  will 

terminate 

$!  and  an  error  message  will  be  issued. 

$  1 

$  IF  PI  .EQS.  then  goto  nobatch 

$SUBMIT/N0TIFY/KEEP/N0PRINTER/NAME=NDDL1/QUE= ' PI V 

PARAMETER=CDMDIR : [ NDDL ] NDDLl  CDMDIR : [ COM ] BLDNDDL . COM 
$SYNCHR0NIZE/QUE='P1'  NDDLl 

$SUBMIT/N0TIFY/KEEP/N0PRINTER/NAME=NDDL2/QUE= ' PI '/" 

PARAMETER=CDMDIR : [ NDDL ] NDDL2  CDMDIR : [ COM ] BLDNDDL . COM 
$SYNCHR0NIZE/QUE='P1'  NDDL2 

$SUBMIT/N0TIFY/KEEP/N0PRINTER/NAME«NDDL3/QUE= ' PI '/” 

PARAMETER=CDMDIR: [NDDL]NDDL3  CDMDIR: [COM] BLDNDDL. COM 
$SYNCHRONIZE/QUE= ' PI '  NDDL3 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL4/QUE= ' PI ' /“ 

PARAMETER=CDMDIR : [ NDDL] NDDL4  CDMDIR : [ COM ] BLDNDDL . COM 
$SYNCHR0NIZE/QUE='P1'  NDDL4 

$SUBMIT/N0TIFY/KEEP/N0PRINTER/NAME=NDDL5/QUE= ' PI •/” 

PARAMETER=CDMDIR: [NDDL]NDDL5  CDMDIR: [COM] BLDNDDL. COM 
$SYNCHR0NIZE/QUE='P1'  NDDL5 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL6/QUE= ' PI '/" 

PARAMETER=CDMDIR: [NDDL]NDDL6  CDMDIR: [COM] BLDNDDL. COM 
$SYNCHR0NIZE/QUE='P1'  NDDL6 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL7/QUE= ' PI '/" 

PARAMETER=CDMDIR; [NDDL]NDDL7  CDMDIR: [COM] BLDNDDL. COM 
$SYNCHR0NIZE/QUE='P1'  NDDL7 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL8/QUE= ' PI '/" 

PARAMETER=CDMDIR: [NDDL]NDDL8  CDMDIR: [COM] BLDNDDL. COM 
$SYNCHR0NIZE/QUE='P1'  NDDL8 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL9/QUE= ' PI '/“ 

PARAMETER=CDMDIR : [ NDDL ] NDDL9  CDMDIR : [ COM ] BLDNDDL . COM 
$SYNCHRONIZE/QUE='Pl'  NDDL9 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL10/QUE= ' PI '/“ 

PARAMETER=CDMDIR: [NDDL]NDDL10  CDMDIR: [COM] BLDNDDL. COM 
$SYNCHR0NIZE/QUE='P1'  NDDLIO 

$SUBMIT/N0TIFY/KEEP/N0PRINTER/NAME*NDDL11/QUE“ ' PI • /- 

PARAMETER=CDMDIR : [ NDDL ] NDDLl 1  CDMDIR : [ COM ] BLDNDDL . COM 
$SYNCHRONIZE/QUE='Pl'  NDDLll 

$SUBMIT/NOTIFY/KEEP/NOPRINTER/NAME=NDDL12/QUE= ' PI '/" 
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PARAMETER=CDMDIR: [NDDL]NDDL12  CDMDIR: [COM] BLDNDDL.COM 
$SYNCHR0NIZE/QUE='P1'  NDDL12 
$exit 
$NOBATCH: 

$  WRITE  SYS$OUTPUT  "A  batch  que  must  be  entered  as  a  parameter." 

$  WRITE  SYS$OUTPUT  "Please  resubmit  the  job  with  the  proper  Que.” 

$exit 
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$! 

$!  BLDNDDL.COM 

$1 

$!  RECEIVE  A  TEST  FILE  OF  PRC'S  AND  PRECOMPILE  AND  COMPILE  THEM 

$1 

$i  PI  =  THE  NAME  OF  THE  FILE  CONTAIN  THE  PRC's  TO  BE 

PRECOMPILED 

$!  IN  THE  FORM;  CDMDIR: [NDDL]NDDL1 

$! 

$! 

$I 

$WS:=  WRITE  SYS$OUTPUT 

$DEFINE  IISSGLIB  "CDMDIR: [NDDL.TEMPS]GENOLB.OLB" 

$DEFINE  CDMTEMPS  CDMDIR: [NDDL. TEMPS] 

$  IF  PI  .NES.  ""  THEN  GOTO  PARMGO 

$WS  "PRECOMPILE  AND  COMPILE  A  GROUP  OF  APPLICATION  PROGRAMS" 

$WS  " - " 

$!  read  an  input  file  containing  names  of  modules  to  be  precompiled 
$ ! 

$ INQUIRE  AP  "  NAME  OF  THE  APPLICATION>" 

$  GOTO  NOPARM 
$ PARMGO; 

$  AP  =  PI 
$NOPARM; 

$  CREATE  'AP'.DAT 
$  OPEN/WRITE  NDMLIN  'AP'.IN 
$  OPEN/READ  NDDLIN  'AP' .TST 
$NEXT : 

$  READ/END_OF_FILE=INDONE  NDDLIN  FILE 
$  WS  "FILE: ' 'File'" 

$  APPEND  CDMDIR : [ NDDL] ' FILE ' . PRC  • AP ' . DAT 

$  GOTO  NEXT 

$INDONE; 

$  CLOSE  NDDLIN 

$! 

$!  5/24/88:  FDL  stuff  added  in  because  GENRPD  now  requires  fixed 

$!  length  .DAT  files  since  conversion  to  FIOPS. 

$  1 

$ ’ OPEN/ WRITE  FDLIN  CDMDIR : [ COM ] FIX . FDL 


$ 

WRITE 

FDLIN 

”IDENT 

""23-FEB-1988  09:49:43 

VAX- 11  FDL 

Editor""" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"SYSTEM” 

$ 

WRITE 

FDLIN 

If 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

It 

ALLOCATION 

391" 

$ 

WRITE 

FDLIN 

II 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

It 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

It 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

It  II 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

If 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

It 

CARRIAGE  CONTROL 

ca  r r i age_r e tur n " 
fixed" 

$ 

WRITE 

FDLIN 

II 

FORMAT 

$ 

WRITE 

FDLIN 

II 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/ PAD=%04 0/FDL=CDMDIR : [ COM] FIX . FDL  ' AP ' . DAT  ' AP ' . DAT 
$  WRITE  NDMLIN  "NDDL  VAX  VAX","  COBOL  NDML  C  ",AP,".DAT  ",AP,".ERR 
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'• ,  "COM/ COM"  ,  ••  FD=N'' 

$  OPEN/WRITE  EDIPRC  CDMDIR: [COM] EDIT. PROC 
$  WRITE  EDIPRC  "S/80/200/WH'' 

$  WRITE  EDIPRC  ''EXIT” 

$  CLOSE  EDIPRC 
$  CLOSE  NDMLIN 

$  EDIT/ COMMAND=CDMDIR: [COM] EDIT. PROC  CDMDIR: [COM] FIX. FDL 
$  DEASSIGN  SYS$OUTPUT 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  'AP'.IN  'AP'.IN 
$  DELETE  CDMDIR: [COM] FIX. FDL;*,  CDMDIR: [COM] EDIT. PROC;* 

$  I 

$i  INPUTS  TO  PRECOMPILER  ARE  NOW  SET  UP 
$!  GO  AHEAD  AND  RUN  IT: 

$  1 

$  ASSIGN/USER  MODE  SYS$COMMAND  SYS$INPUT 
$!  ASSIGN  'APT.IN  NDML 
$  RENAME  'AP'.IN  CDMDIR : [ NDDL ] NDML . DAT 
$  ASSIGN  'AP'.OUT  SYS$OUTPUT 
$  SET  DEFAULT  CDMDIR: [NDDL] 

$  RUN  CMDIR: [RUNAREA] NDML. EXE 
$  RENAME  CDMDIR : [ NDDL ] NDML . DAT  'AP'.IN 
$  1 

$'alldone: 

$  DEASSIGN  SYS$OUTPUT 

$1 

$!  check  the  .out  file  for  errors  in  precompiling 
$! 

$OPEN/READ  EFLE  'AP'.OUT 
$ZR:="0" 

$  NERRLOOP: 

$  READ/END_OF  FILE=COMPERR  EFLE  EREC 
$  LENG  =  'F^LENGTH(EREC) ' 

$  UN  =  'F$LOCATE("UNSUCC",EREC) ' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NERRLOOP 

$  UNI  =  'UN'  -  13 

$  UN2  =  ' F$EXTRACT (UNI, 1, EREC) ' 

$  IF  UN2  .EQS.  ZR  THEN  GOTO  NDMLGOOD 

$WS  "THE  PRECOMPILE  OF  ' 'AP'  HAS  "UN2'  UNSUCCESSFUL  ROUTINES" 

$WS  "CHECK  THE  ''AP'.ERR  FILE  FOR  ERRORS" 

$GOTO  EXIT 
$COMPERR: 

$WS  "PRECOMPILE  FAILED" 

$GOTO  EXIT 

$! 

$!  the  precompile  was  successful,  compile  the  code 

$  I 

$*  NDMLGOOD: 

$WS  "  " 

$WS  "NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED" 

$WS  "BEGIN  COMP'^ING  GENERATED  CODE" 

$  NDMLGDRD: 

$  READ/END  OF_FILE  =  COMPERR  EFLE  EREC 
$  LENG  =  ■^F$LENGTH(EREC)  ' 

$  UN  =  'F$LOCATE("==>  USE",  EREC)' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NDMLGDRD 

$1 

$ASSIGN  'AP'.MSG  SYS$OUTPUT 
$UN1  =  'UN'  +  8 

$NNAM:='F$EXTRACT(UN1,30,EREC) ' 
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$WS  NNAM 
$CLOSE  EFLE 
$  e'NNAM' 

$DEASSIGN  SYS$OUTPUT 
$purge  ' AP ' . * 

$WS  "RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  ' 'AP* .MSG" 
$EX1T : 

$DEFINE  IISSGLIB  "CDMDIR: [TEST]GENOLB. OLB" 
$deassign  cdmtemps 
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$1 

$1 

$!  GENRPDDBG.COM 

$!  THIS  PROC  WILL  CREATE  GENRPD.DAT  FOR  RUNNING  GENRPD  .  GENRPD 
$!  GENERATES  AN  RP-MAIN  PROGRAM.  PROMPTS  FOR  LOGICAL  UNIT  OF  WORK 
$!  NAME  AND  ORACLE  USER  NAME/PASSWORD 

$!  OUTPUT  FOUND  ON  'LUW'.RPD 

$i  MODIFIED:  JAN  10,  1987 

$I 

$  WRITE  SYS$OUTPUT  '*  " 

$  WRITE  SYS$OUTPUT  '*  GENERATE  REQUEST  PROCESSOR  DRIVERS" 

$  WRITE  SYS$OUTPUT  " - " 

$  INQUIRE  LUW  "ENTER  LOG  UNIT  WORK  NAME  " 

$  INQUIRE  UNPW  "ENTER  ORACLE  USERNAME/PASSWORD (CDM/CDM)  " 

$  MYHOST  =  "VAX" 

$  CREATE  GENRPD.DAT 
$  OPEN/WRITE  GENRPD.DAT  GENRPD.DAT 
$  WRITE  GENRPD.DAT  LUW,"  ",UNPW,"  ", MYHOST 
$  CLOSE  GENRPD.DAT 
$  OPEN/WRITE  FDLIN  FIX.FDL 


$ 

WRITE 

FDLIN 

«IDENT 

""23-FEB-1988  09:49:43 

VAX- 11  FDL 

Editor""" 

$ 

WRITE 

FDLIN 

If  II 

$ 

WRITE 

FDLIN 

"SYSTEM” 

$ 

WRITE 

FDLIN 

II 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

It  II 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

II 

ALLOCATION 

391" 

$ 

WRITE 

FDLIN 

II 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

It 

EXTENSION 

39" 

$ 

WRITE 

FDLIN 

It 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

II 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

II 

CARRIAGE  CONTROL 

carriage_return 

fixed" 

$ 

WRITE 

FDLIN 

II 

FORMAT 

$ 

WRITE 

FDLIN 

II 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%O40/FDL=FIX  GENRPD.DAT  GENRPD.DAT 
$  DELETE  FIX.FDL;0 
$! 

$  ASSIGN/USER_MODE  SYS$COMMAND  SYS$INPUT 
$  ASSIGN  'LUW'.RPD  SYS$OUTPUT 
$  RUN  CMDIR: [RUNAREA3GENRPD.EXE 
$  DEASSIGN  SYS$OUTPUT 
$  WRITE  SYS$OUTPUT  "  " 

$  WRITE  SYS$OUTPUT  "»>GENERATION  FINISHED<«" 

$  WRITE  SYS$OUTPUT  "  RESULTS  OF  GENERATION  CAN  BE" 
$  WRITE  SYS$OUTPUT  "  FOUND  ON  FILE  "LUW'.RPD" 
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$! 

$!  MCMPDDL.COM 

$  1 

$i  PERFORM  ORACLE  V5  PRECOMPILATION  ON  PI 
$!  DEFAULT  EXTENSION  IS  .PC 

$!  WHICH  PRODUCES  Pl.C  (PRECOMPILED  C  SOURCE) 

$!  AND  PI. ERR  (PRECOMPILER  ERROR  LISTING). 

$i  PERFORM  C  COMPILATION  ON  Pl.C 
$1  INSERT  .OBJ  INTO  IISSGLIB 
$! 

$! 

$DEFINE  IISSGLIB  "CDMDIR:  [NDDL]GENOLB.OLB'' 

$IF  PI  .EQS.  THEN  INQUIRE  PI  ••_File  ” 

$IF  (F$LOC  (•'.»,  PI)  .EQ.  F$LENGTH(P1)  )  THEN  P2=P1+'' .  PC” 

$IF  (F$LOC(". ”,P1)  .EQ.  F$LENGTH(P1) )  THEN  P3=P1 
$IF  (F$L0C(”.",P1)  .NE.  F$LENGTH(P1) )  THENP2=P1 
$IF  (F$L0C(”.”,P1)  .NE.  F$LENGTH(P1) )  THEN 
P3=(F$EXTRACT(0,F$LOC(". ”,P1) ,P2)  ) 

$INQUIRE  CB  "DELETE  GENERATED  .C?  (Y/N:  Y  IS  DEFAULT) 

$IF  CB  .EQS.  THEN  CB="Y” 

$PCC  INAME='P2*  LNAME= ' P3 ' . ERR  USERID=CDM/CDM  INCLUDE=SYS$ORACLE : 
HOST=C  MAXLITERAL=160  REBIND=YES 
$  ON  ERROR  THEN  CONTINUE 

$vcc/debug/list= ' P3 ' . lis/standard=portable/noopt/DEFINE=VAX  ' P3 ' . C 

$  ON  ERROR  THEN  CONTINUE 

$LIB/REPLACE  IISSGLIB  'PI '.OBJ 

$IF  CB  .EQS.  "Y”  THEN  DELETE  'Pl'.C;* 

$DELETE  'PI '.LIS;*,  'P3'.ERR;*,  'PI '.OBJ;* 

$  WRITE  SYS$OUTPUT  ”  ” 

$  WRITE  SYS$OUTPUT  ”***  Oracle  precompile,  C  compile,  and  " 

$  WRITE  SYS$OUTPUT  ”  insertion  into  IISSGLIB  of  ",  P2,  " 

complete. " 

$  WRITE  SYS$OUTPUT  "  " 

$  DEFINE  IISSGLIB  "CDMDIR: [TEST] GENOLB.OLB" 

$EXIT 
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$! 

$!  LNKNDDLC.COM 

$! 

$!  CREATED  APRIL  1988  TO  LINK  THE  NDDL  EXECUTABLE  USING  'C 

RP-SUBS 


$! 

$  I 

$TOITE  SYS$OUTPUT  ''  -  LINKING  NDDL.EXE  " 

$  ASSIGN  NDDL. LINK  SYS$OUTPUT 

$  IF  FSSEARCHC'CMDIR;  [RUNAREA3NDDL.EXE'')  THEN  GOTO  PROCEED 
$  DELETE  CMDIR : [ RUNAREA ] NDDL . EXE ; * 

$! 

$PROCEED; 

$  DEFINE  IISSGLIB  CDMDIR: [NDDL]GENOLB.OLB 

$1 

$STARTLINK: 

$§SYS$ORACLE:LFOR  CMDIR: [RUNAREA] NDDL  - 
CDMDIR: [ NDDL] NDDL. OBJ, - 
CDMDIR: [COM]CDM/OPTIONS,- 
SYS$ORACLE : SQLLIB/LIB, - 
CDMDIR: [NTMUI]NTMUIOLB.OLB/LIB,- 
CDMDIR: [ COM] CDMUI . OPT/OPTIONS , - 
CDMDIR: [COM] CDMNTM. OPT/OPTIONS  SN 
$DEASSIGN  SYS$OUTPUT 

$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 

$ENOUGH: 

$DEASSIGN  IISSGLIB 
$DEASSIGN  SYS$OUTPUT 
$DELETE  NDDL. LINK;* 


$DEFINE  IISSGLIB  "CDMDIR: [TEST] GENOLB.OLB" 
$1 
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$  1 

$i  ULNKDDL.COM 

$!  THIS  USES  ORACLE  VERSION  5.1 

$1 

$!  MODIFIED  OCTOBER  23,1987-RES  FOR  RESTRUCTURING 

$  1 

$TOITE  SYS$OUTPUT  "  -  LINKING  UINDDLZZ.EXE  ” 

$  ASSIGN  NDDL.LINK  SYS$OUTPUT 
$DELETE  CMDIR: [RUNAREA] UINDDLZZ.EXE;* 

$  I 

$DEFINE  IISSGLIB  "CDMDIR: [NDDLjGENOLB.OLB” 

$! 

$STARTLINK : 

$@SYS$ORACLE:LFOR  CMDIR: [RUNAREA]UINDDLZZ  - 

CDMDIR: [NDDL]UINDDL. OBJ, - 

CDMDIR: [COM]CDM/OPTIONS , - 

SYS$ORACLE  :  SQLLIB/LIB,  - 

CDMDIR : [ COM ] CDMUI . OPT/OPT , - 

CDMDIR: [COM] CDMNTM. OPT/OPTIONS  Snn 

$DEASSIGN  SYS$OUTPUT 

$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 

$ENOUGH: 

$DEASSIGN  SYS$OUTPUT 
$DELETE  NDDL.LINK;* 

$DEFINE  IISSGLIB  "CDMDIR: [TEST] GENOLB.OLB" 

$! 
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